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} File: RTLPSECT.REQ Edit: JAW1010 

/! This file, RTLPSECT.REQ, defines the macros for declaring RTL psects. 


Mei iii ii iiiititiiiiititiiitiiiiiititiiitiitiiitiiiti iit 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 
!* DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
‘®t ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND sorter 
‘* ONLY IN ACCORD “_ WITH THE TERMS OF SUCH LICEN THE 


>m 
nw 
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> 
r 4 
i= 
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® 

® 

® 

*® 

*® 

® 

® 

® 

: ® 
i® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. & 
4 * 
ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
i® AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
ie CORPORATION. . 
* 

i® DIGITAL ASSUMES NO RESPONS BILIT * 
® 

® 

* 

® 


I FOR THE USE OR _ RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH 


LITY 
S NOT SUPPLIED BY DIGITAL. 


eee Ree A ERATE Eee ee 
' 


i Revision History: 


1 

i 

! 

' 

! Ol-2. = Data PIC, NOSHR. TNH 19-Dec-77 

' 01-03 - Make OWN be NOSHARE. TNH 6-Jan-77. 

i 01-5 = Make OWN be PIC. TNH 27-June-78. 

' 01-6 = Change nage to RTLPSECT.REQ. BS 14-NOV-78 

' 1-007 = Add copys ees notice. JBS 16-N 

! 1-008 - Change PSECT nonee to start sith er to conform to new RTL 
‘ standard. JBS 21-DEC-78 

1-009 - Renova tor. Paar statement, for the new BLISS compiler. 

' 1-010 = Add optional second argument to DECLARE nie ey allow 

: control of OWN PSECT alignment boundary. See FORSSEXIT. _HANDL 
} for furtner Solemnaaian:, JAW 23-FEB-1981 


' 
! Macro to declare PSECTs for a facility, given the foc tl ity prefix. 
! The declarations are very dependent on the Linker algorit 

! for sorting PSECTs. Currently that algorithm divides 

! PSECTs into four cBreurs depending on WRITE us ~ Se hi and 

! EXECUTE vs NOEXEC Therefore in order to get 

compact programs, PLIT is made EXECUTABLE get is close to CODE. 


Tan, SEM BESTT LEE Be SI eee SE aE RE 


1 
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Example of use: 
PSECT DECLARATIONS: 
DECLARE_PSECTS (FOR); ! Declare PSECTs for FORS facility 


! 

! 

' 

! 

! Note: since the Lagan manual does not yet ag + AR where PSECT 
e eoee ore ut between EQUATED SYMBOLS 


' 
4 
i declarations go in a modu 
Ge (uhich is after INCLUDE files). 


and OWN STORA 


ACRO 
DECLARE_PSECTS (FAC, BOUND) = 
PSECT 


CODE = ZNAME (‘_', FAC, SCODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), 
PLIT = ZNAME ('_', FAC, SCODE) (READ, NOWRITE, EXECUTE, SHARE, PIC, ADDRESSING MODE (WORD RELATIVE)) 
OWN = XNAME ('"", FAC, SDATA) (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIVES 
MIF-XLENGTH GEQU 2 XTHEN , ALIGN(BOUND) ZFI), 
GLOBAL = ZNAME ('_*, FAC, SDATA) (READ, WRITE, NOEXECUTE, NOSHARE, PIC, ADDRESSING_MODE (LONG_RELATIVE)) %; 
! Define macro for oe ig Sy PIC (position independent) erapetes tables 
: aS OWN storage (would be better if BIND table = PLIT (...), however, 
! BLISS doesn't allow table to be referenced inside PLIT definition, 
' so use OWN storage instead). The OWN storage is ig ges defined 
! to be same PSECT as code, then DECLARE_PSECTS should be called again 
' to restore OWN to _fac$DATA PSECT. y 
' i 
MACRO ; 
DISPATCH _PSECTS (FAC) = ; 
PSECT : 
CODE = ZNAME ('_', FAC, S$CODE) TE, SSIN IVE)), 
PLIT = ZNAME ('_', FAC, $CODE) » NOWRITE, TE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)), ; 
OWN = ZNAME (‘'_', FAC, SCODE) (READ, NOWRITE, TE, SHARE, PIC, ADDRESSING MODE (WORD _RELATIVE)), : 
GLOBAL = XNAME T'_', FAC, $CODE) (READ, NOWRITE CUTE, SHARE, PIC, ADDRESSING_MODE (WORD_RELATIVE)) 2%; : 
' 


; End of file RTLPSECT.REQ 
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